Top 10k strings from Triangl (1985)(Megasoft)(ba).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Games / [TZX] /
Back to the directory listing
48 $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
24 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
6 22c1For use with microdrive etc.
4 pom=(k2-k1)*
3 "Stranica c=";c:
3 "Stranica b=";b:
3 " b = ";b:
2 ry=l1+pom*
2 rx=k1+pom*
2 p;",";q;")"'
2 p$=p$+z$+" * X ":
2 p$=" Y = ":
2 p$=" Y = "+z$:
2 p$=" X = "+z$:
2 b$("Stepeni: ");d'
2 b$("Sekunde: ");sc:
2 b$("Minute: ");m'
2 Q=P1*P+Q1:
2 Q=L2-P*K2:
2 P=(L2-L3)/(K2-K3):
2 P;",";Q;")"':
2 P;",";Q;")"'
2 -k1)+(rry-l1)*(rry-l1)):
2 *E\"n\:G\2p\
2 *((K3-K1)*(K3+K1-256
2 )+(L3-L1)*(L3+L1))/(l3-l1):
2 (rrA*rrA-rry1*rry1),0
2 (rr*rr-rry*rry),0
2 "Stranica a=";a:
2 " c = ";c:
2 " a = ";a:
1 w$="cabABC"
1 w$="bcaCAB"
1 ub=(d+m/60
1 ua=(d+m/60
1 tn=g1+g3*.5
1 rrx,rry,rr:
1 rc=p/(s-c):
1 rb=p/(s-b):
1 ra=p/(s-a):
1 q=q1-p*p1:
1 q=q1+p1/p:
1 q2=(q1+N+X(F+1
1 p=(q1-q2)/(p1-p2):
1 p2=(p1+M+X(F+1
1 p$=p$+f$(n):
1 p$=p$+" NEMOJTE DAVATI BESMISLENE PODATKE..."+p$:
1 p$="TYPE OF KEYWORD: Function":
1 p$="TYPE OF KEYWORD: Command":
1 p$="TURN TAPE OVER":
1 p$="STOP THE TAPE":
1 p$="REWIND & START":
1 p$="Press any key to continue":
1 p$="PSION
1 p$="KEYWORD":
1 p$="END OF SIDE A":
1 p$="DICTIONARY"::
1 p$="CHAPTER "+f$(s
1 p$="CAPS SHIFT-6 TO STOP":
1 o$(ub)'"
1 o$(ua)'"
1 k3-k1,l3-l1:
1 k2-k3,l2-l3:
1 g2/pom,(k2-k1)/pom:
1 g1/pom,(k2-k1)/pom:
1 file
1 f$(pom)=p$:
1 dx=(l1-l3)/
1 dictionaryT
1 d
1 b+c-a<1E-6
1 b$("trougao?"):
1 b$("toj stranici ");"(c,
1 b$("od njih ");"(a,b,
1 b$("nom sistemu ");"(";
1 b$("[X1,Y1] , [X2,Y2] , [X3,Y3]");")";
1 b$("Zadane su sve tri stranice ");"(a,b,c)";
1 b$("Zadane su koordinate tjemena trougla u koordinat-");
1 b$("Zadane su dvije stranice i ugao nasuprot jedne");
1 b$("Zadane su dvije stranice i ugao izmedju njih ");"(b";
1 b$("Zadana je jedna stranica i dva ugla koja leze na");
1 b$("Tupougli");
1 b$("Pomocna racunanja (kalkulator)"):
1 b$("Ostrougli")''"
1 b$("IZABERITE ODGOVARAJUCU OPCIJU (1-5)")
1 b$("Da li zelite podatke za:")''"
1 a+c-b<1E-6
1 a+b-c<1E-6
1 W$="abcBCA"
1 UC2=UB1-UA:
1 TRIANGL E
1 TEZISNICE:
1 Sve su seke...
1 STARTUJ KASETOFON...":
1 SSSSSSSSSSSSSSSSSSSSSSS
1 SSSSSSSSSSSSSSSSSSSSSS
1 SSSSSSSSSSSSSSSSSS
1 SSSSSSSSSSSSSSS
1 SSSSSSMMSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSMMOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOMM777777777777777777777777777777MMOOOOOOOOOOOOOOOOOOOOOONNNNOOO7MMO
1 SSMMSSSSSSSSSSSSSSSSSSSSSSS
1 RRY+RR>175
1 Q=P2*P+Q2:
1 Q2=(L2+L3)/2
1 PV=(L1+L3)*.5
1 PPPPPPPPPPPPPPPPPPPPP
1 POVRSINA,OBIM I POLUOBIM:
1 POLUPRECNIK UPISANE KRUZNICE:
1 POLUPRECNIK OPISANE KRUZNICE:
1 POLUPRECNICI SPOLJA OPISANIH"'"KRUZNICA:
1 PH2=(K2+K3)*.5
1 PH1=(K1+K3)*.5
1 P=(Q2-Q1)/(P1-P2):
1 P2=(K2+K3)/2
1 P-K3,Q-L3:
1 P$=P$+Z$+")^2=":
1 P$=P$+Z$+")^2+(Y"+("-"
1 P$=" (X"+("-"
1 ORTOCENTAR IZVAN EKRANA !!!":
1 OOOOOOOOOOONNNNNOO7MMOOOOOOOOOOOO
1 OONNNNNNNO7MMOOOOOOOOOOOOOOOOOOOOONNOONNNO7MMMMMMMMMMMMMMMMMMOOOOONNNONNNO7MMOMMMMMMMMMMMMMMOOOOOONNNNNNOO7MMOOMMMMMMMMMMMMOOOOOOOONNNNNOO7MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMU
1 NEMA RJESENJA!!!
1 MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSMMSS
1 JEDNACINE VISINA:
1 JEDNACINE TEZISNICA:
1 JEDNACINE STRANICA:
1 JEDNACINE SIMETRALA UGLOVA:
1 HX-K2,HY-L2:
1 HX-K1,HY-L1:
1 FUDO
1 DUZINE SIMETRALA UGLOVA:
1 CENTAR KRUZNICE IZLAZI SA EKRANA":
1 B$(" PRITISNI BILO KOJU TIPKU... (SYMBOL SHIFT A = RANDOMIZE USR 0)")
1 A$;" = ";VAL:
1 =14768 (sifra)"'"UNESI SIFRU ZA IZLAZ IZ PROGRAMA(ILI BILO STA ZA NASTAVAK)"'
1 ;"THIS PROGRAM IS INTENDED AS A GUIDE TO THE KEYWORDS USED BY THE SPECTRUM BASIC";''';"IT PROVIDES A BRIEF DESCRIPTION OF EACH KEYWORD AS YOU ENTER IT"'''
1 ;"STRANICA b NEKA BUDE VECA"'
1 ;"STEPENI,MINUTE I SEKUNDE";
1 ;"OD STRANICE c"'':
1 ;"KOORDINATE TJEMENA:";
1 ;"KOORDINATE PRESJEKA STRANICA SA SIMETRALAMA UGLOVA:";
1 ;"KOORDINATE POLOVISTA STRANICA:";
1 ;"KOORDINATE PODNOZJA VISINA:";
1 ;"KOORDINATE ORTOCENTRA I TEZISTA:";
1 ;"KOORDINATE CENTARA OPISANE I"'"UPISANE KRUZNICE:";
1 ;"JEDNACINE SIMETRALA STRANICA:";
1 ;"JEDNACINA UPISANE KRUZNICE:";
1 ;"JEDNACINA OPISANE KRUZNICE:";
1 ;"ILI RADIJANI ?";
1 ;" ";
1 ;" ":
1 ;" ":
1 24c1Clears all variables in memory
1 23f2Same as PEEK, for input-output'ports
1 23c2Same as POKE, used with input-'output ports
1 21c2As with PRINT, but uses'ZX printer instead of screen
1 21c2As with LIST, but uses'ZX printer instead of screen
1 21c1Copies the screen to the printer
1 20f3SCREEN$ (l,c) gives character'at line l, column c, of screen'Also used with SAVE etc.
1 20f3SAVE <name> LINE n: will GO TO n'after LOAD has completed'Also used with INPUT Ch.15
1 20c3Used to check that'a program on tape will LOAD'successfully
1 20c3Loads program without deleting'existing one (except for line'numbers which overlap)
1 20c3Loads program from cassette'and clears existing programs'and variables
1 20c2Stores program and variables'on cassette
1 19c1Sounds the loudspeaker
1 18f3Reads keyboard and gives'character produced by key'currently being pressed
1 18c2Halts program for specified time'(pressing a key resumes)
1 17f3POINT (x,y) tells whether pixel'at x,y is ink or paper colour'(0 = paper, 1 = ink)
1 17c2PLOT x,y sets pixel at x,y'to ink colour
1 17c2Draws straight or curved lines'from current position
1 17c2CIRCLE x,y,r draws a circle with'centre x,y and radius r
1 16f3ATTR (l,c) gives attribute byte'(FLASH, BRIGHT, PAPER & INK)'at line l, column c
1 16c3Sets paper colour on screen'Can also be used inside other'statements, as in PRINT PAPER n
1 16c3Sets ink colour on screen'Can also be used inside other'statements, as in PRINT INK n
1 16c3Determines whether characters on'screen will flash or be steady'Use in the same way as INK
1 16c3Determines whether characters on'screen will be bright or normal'Use in the same way as INK
1 16c2Controls overprinting of'screen characters
1 16c2Controls inverse or normal video'of screen characters
1 16c1Sets border colour
1 15n3AT l,c sets PRINT and INPUT'position to line l,column c'of screen
1 15n2TAB c moves PRINT or INPUT'position to column c
1 15c2Allows data to be entered into'a variable from the keyboard
1 14f3USR "a" gives start address of'user defined graphic a'Also used for machine-code Ch.17
1 14f3CODE s gives the code of the'first character of string s'Also used with SAVE etc.
1 14f2Used to express numbers'in binary form
1 14f2Gives the contents of a single'byte of memory
1 14f2CHR$ n gives character whose'code is n
1 14c2POKE a,n sets value of byte at'address a to value n
1 13n2Used in IF statements to reverse'true and false
1 13n2Logical "or", usually used'in IF statements
1 13n2Logical "and", usually used'in IF statements
1 12c1Sets the dimension of an array
1 11f2Generates pseudo-random number'between 0 and 1
1 11c3Sets RND to start at a specified'place in its sequence'of random numbers
1 10f3The ratio of circumference'of a circle to its diameter'(=3.1415927 approx.)
1 10f2Trigonometric tan function'Argument in radians
1 10f2Trigonometric sine function'Argument in radians
1 10f2Trigonometric cosine function'Argument in radians
1 10f1Trigonometric arctan function
1 10f1Trigonometric arcsine function
1 10f1Trigonometric arccos function
1 10f1Raises argument to power of e
1 10f1Natural logarithm to base e
1 -L2)/(HY-L2),175
1 -L1)/(HY-L1),175
1 ,P*F+Q-L2:
1 ,P*F+Q-L1:
1 ++"=\*n\"E\:p\2G\>?
1 *uc)/(a+b):
1 *ub)/(a+c):
1 *ua)/(b+c):
1 *(y2+y3);")"'" T3(";.5
1 *(y1+y3);")":
1 *(y1+y2);")"'" T2(";.5
1 *(x2+x3);",";.5
1 *(x1+x3);",";.5
1 *(x1+x2);",";.5
1 *(l2+l3)-l1:
1 *(l1+l3)-l2
1 *(k2+k3)-k1,.5
1 *(k1+k3)-k2,.5
1 ),l2-v*kp*
1 ),l1-w*KP*
1 )+" OF MANUAL":
1 (w*w-z*z)/u+24
1 (w*w-z*z)+k1:
1 (rry1/rrA))
1 (rry/rr)):
1 (rr*rr-16384
1 (b*b+c*c-2
1 (HX-K2)*(175
1 (HX-K1)*(175
1 ((x3-x2)*(x3-x2)+(y3-y2)*(y3-y2))
1 ((x3-x1)*(x3-x1)+(y3-y1)*(y3-y1)):
1 ((x2-x1)*(x2-x1)+(y2-y1)*(y2-y1))
1 ((b-c)/((b+c)*
1 ((b*b+c*c-a*a)/(2
1 ((b*b+c*c)*.5
1 ((a*a+c*c-b*b)/(2
1 ((a*a+c*c)*.5
1 ((a*a+b*b-c*c)/(2
1 ((a*a+b*b)*.5
1 ((U*U+V*V)/(W*W+Z*Z)):
1 '''" Written by:"''" Juric Zeljko"'" Vidovic Vladimir"'" Dostic Nebojsa";
1 ''" A(";x3;",";y3;")"'" B(";x1;",";y1;")"'" C(";x2;",";y2;")"''
1 '" T1(";.5
1 '" Co(";:
1 "stranica i uglova unesete koordinate tjemena trougla","u koordinatnom sistemu (prakticno za analiticku","geometriju).","Program daje i vrijednosti sporednih elemenata trougla","(visine,itd.) ,a ukoliko ste unijeli i koordinate","tjemena trougla onda program daje i jednacine stranica",",visina, koordinate tezista, ortocentra, itd.","Svako rjesenje prati detaljan graficki prikaz."
1 "posla baba jarca musti"
1 "dictionary"
1 "Zadani trougao nece biti prikazan u svojoj prirodnoj","velicini(jer bi se moglo desiti da ne stane na ekran)","nego ce sve stranice biti srazmjerno povecane ili","umanjene(uglovi ostaju ocuvani).","Najduza stranica ce uvijek biti postavjena u","horizontalan polozaj tako da ce najveci ugao doci u","vrh trougla."," "
1 "UNESITE IZRAZ KOJI ZELITE DA IZRACUNATE..."''"STOP (SYMBOL SHIFT A) - IZLAZ"'''
1 "UNESEN JE X
1 "NASTUPIO JE TZV. ~SUMNJIVI~"'"SLUCAJ."'"RJESENJE NIJE U POTPUNOSTI"'"ODREDJENO,JER SE ZADATI UGAO"'"NALAZI NASUPROT MANJE,A NE VECE"'"STRANICE.POSTOJE DVA TROUGLA"'"KOJA PREDSTAVLJAJU RJESENJE"'"(VIDI SLIKU),JEDAN OSTROUGLI,"'"A DRUGI TUPOUGLI."
1 "Koordinate treceg tjemena:"''"X3=";x3'"Y3=";y3:
1 "Koordinate prvog tjemena:"''"X1=";x1'"Y1=";y1:
1 "Koordinate drugog tjemena:"''"X2=";x2'"Y2=";y2:
1 "''"NIJE ISPUNJEN OSNOVNI USLOV"'"O EGZISTENCIJI TROUGLA (ZBIR"'"SVAKE DVIJE STRANICE MORA BITI"'"VECI OD TRECE STRANICE)":
1 "''" ra = ";ra'" rb = ";rb'" rc = ";rc:
1 "''" r = ";r''"
1 "''" a = ";a'" b = ";b'" c = ";c''"
1 "''" Ta = ";ta'" Tb = ";tb'" Tc = ";tc''"
1 "''" R = ";RR;#0
1 "''" P = ";p'" O = ";o'" s = ";s''"
1 "''" Ha = ";ha'" Hb = ";hb'" Hc = ";hc''"
1 " Simply enter the keyword of your choice as you would in BASIC, using extended mode in the normal way"
1 " S";F;"(";:
1 " NAPOMENA:"," ","Graficko prikazivanje trougla se odvija preko OVER 1","naredbe tako da ce slika ponekad imati cudan izgled.","Ponovno pozivanje iste opcije ce vratiti izgled slike","kakav je bio prije prve upotrebe."
1 " H";F;"(";:
1 " Dobijenu sliku mozete dopunjavati pritiskom na tipke","1 - 5 i tipke CAPS SHIFT 1,2,4,5 prema meniju koji ce","biti prikazan."," "," "," PRITISNI BILO KOJU TIPKU ZA MENU"
1 " c = ";c
1 " X3 = ";x3,"Y3 = ";y3
1 " X2 = ";x2,"Y2 = ";y2
1 " X1 = ";x1,"Y1 = ";y1
1 " 6 COPY"," 7 SAVE ""FILESCREEN$""CODE 16384,6144"," 8 RUN"
1 " 5 Konstrukcija upisane kruznice","CAPS SHIFT 5 Markiranje centra upisane kruznice"
1 " 4 Konstrukcija opisane kruznice","CAPS SHIFT 4 Markiranje centra opisane kruznice"
1 " 1 Konstrukcija visina","CAPS SHIFT 1 Konstrukcija ortocentra"," 2 Konstrukcija tezisnica","CAPS SHIFT 2 Konstrukcija tezista"," 3 Konstrukcija simetrala uglova"
1 " RJESAVANJE KOSOUGLOG TROUGLA"," ","Ovaj program je namijenjen za rjesavanje geometrijskog","problema poznatog po nazivu ~RJESAVANJE KOSOUGLOG","TROUGLA~.","Program rjesava cetiri klasicne varijante proracuna","trougla.Uglovi se mogu unositi bilo u stepenima,","minutama i sekundama,bilo u radijanima.Postoji i","dodatna mogucnost da umjesto podataka o velicini"
1 YU-1985 Megasoft":
1 Stepeni,minute i sekunde";
1 Scroll "
1 Radijani (lucna mjera)"
1 MEGASOFT 1985
1 Grafik
1 = ";sc;#0
1 = ";sb'" S
1 = ";sa'" S
1 9f2Strips quotes from string,'evaluates as a string
1 9f2Strips quotes from string and'evaluates as an expression
1 9f2STR$ n gives string that would'appear if n were PRINTed
1 9f2SGN n =1 if n>0, 0 if n=0 and'-1 if n<0
1 9f2Gives integer part of numerical'argument (always rounds down)
1 9f2Calls user-defined function'(see DEF FN)
1 9f1Gives square root of argument
1 9f1Gives length of string
1 9f1ABS n gives positive value of n
1 9c3Allows you to define'your own functions'(see FN)
1 6c3Sets up a list of data items'for READ command'Also used with SAVE etc.
1 6c3RESTORE n will reset pointer for'next READ to first DATA item'after line number n
1 6c2READ v assigns to variable v'the next item in a DATA command
1 5c3GO SUB n causes a jump to line n'When a RETURN is found, program'returns to command after GO SUB
1 5c2Defines end of subroutine'(see GOSUB)
1 4n3Sets the amount added to the'counting variable after each'loop in FOR-NEXT loops
1 4n3Separates initial value & limit'in FOR-NEXT loops and string'slicing (Chap.12)
1 4c1Last command in FOR-NEXT loop
1 4c1First command in FOR-NEXT loop
1 3n2Must always follow the condition'in an IF statement
1 3n2"Not equal to"'Mainly used in IF statements
1 3n2"Less than or equal to"'Mainly used in IF statements
1 3n2"Greater than or equal to"'Mainly used in IF statements
1 3c2Used with THEN'to execute code conditionally
1 3c1Clears the screen
1 2c2RUN n clears all variables and'executes program from line n
1 2c2LIST n displays program listing'on screen from line number n
1 2c2GO TO n causes program to jump'to line number n
1 2c2For comments: anything after it'is ignored until next line
1 2c2Erases all programs'and variables
1 2c2Continues program after error'from line where error occurred
1 2c1Used to display items on screen
1 2c1Stops the program
1 2c1Assigns a value to a variable
1
1